home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / graphics / raytracing / dust / examples / animfunc.bat next >
DOS Batch File  |  1994-12-28  |  377b  |  15 lines
  1. load(1,objects/plane)
  2. window(1,0,11,240,grey,327,345,1.0,f,f)
  3. set(rotx,309)
  4. set(rotz,-33)
  5. animfunc(1,16,ram:obj,1.0,4.0,x0,y0,"20*sin(x0*x0/(10*t0)+y0*y0/(10*t0))")
  6. kill
  7. loadseq(1,16,ram:obj,1)
  8. !delete ram:obj.#?
  9. set(drawmode,color)
  10. set(outlined,f)
  11. windowseq(1,16,0,11,640,256)
  12. request("Exit program ?",No,Yes)
  13. request("Exit program ?",No,Yes)
  14. request("Exit program ?",No,Yes)
  15.